COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	C***** CONVERTS MP OUTPUT TO 11/40 DISPLAY FORMAT ***** LOAD WITH CONVX
C00003 ENDMK
C⊗;
C***** CONVERTS MP OUTPUT TO 11/40 DISPLAY FORMAT ***** LOAD WITH CONVX
	common/IARRAY/IARRAY(13500) /SGZ/ISEG,SZ,SEGSZ
C NO USE HAVING BIGGER BUFFER - POX WOULD RUN OUT OF CORE.
	TYPE 2
2	FORMAT(' TYPE SEGMENT NUMBER, SIZE FACTOR
	1, SEGMENT SIZE -- '$)
3	FORMAT(I,F,F)
	ACCEPT 3,ISEG,SZ,SEGSZ
	IF(ISEG.EQ.0)ISEG=1
	IF(SZ.EQ.0)SZ=1.
	IF(SEGSZ.EQ.0)SEGSZ=8.5
C THESE ARE THE DEFAULT VALUES FOR NOW.
	CALL GET
	TYPE 1,IARRAY(2)
1	FORMAT(' TOTAL NUMBER OF VECTORS =',I5)
440	OPEN(UNIT=1,FILE='P.PLT',MODE='IMAGE')
	WRITE(1)(IARRAY(K),K=1,IARRAY(2)+1)
C WRITES VERSATEC FILE   P.PLT
	CLOSE(UNIT=1)
	END